home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / SortDemo.Obj < prev    next >
Encoding:
Text File  |  1995-08-14  |  10.6 KB  |  25 lines  |  [TEXT/.Ob4]
  1. ¯6Ü     ˇ»0÷ë8-·éSortDemoÇ¡ÿ+/ä◊å€Blb5®ÉBubbleÿHeap+Insert/MinSearchOpenäRandomize€QuickWorstOrderåQuick◊RecallBReverseOrderlShellbSmooth5Ñ ,Ö2ˆÊÃOberon;‚ÜDisplay2ˆßæTexts;‚WêFonts;ı‰ƒViewers;˜ê
  2. MenuViewers2¯"TextFrames6e∏uFiles;‚WêInputÜ ˇ√ˇc˛fiˇˇ¸K˝ı    ˝Ã˚/
  3. ˝K¯8&¸â¸ë¸≠ ¸É¸}
  4. ¸G¸<¸5¸-¯1áSortDemo.SmoothSortDemo.HeapSortDemo.QuickSortDemo.ShellSortDemo.InsertSortDemo.MinSearchSortDemo.BubbleSystem.Close  System.Grow SortDemo sec swaps,  comparisons, : à|¶øˇ‡êî!ˇà;·8êA;ƒ;•;Ü;g;H;)8ˇˇ¸8Ä|â¶ÄÉÄ£êáÑÉîßÄ£Bˇêáêß©@,ò@ ´øxÿ©?©_ }iRXÿ@¯;x©ü
  5. `/ò@˝ ´ü
  6. X–®
  7. ®ü|£"(|ò–@‰;X/@˘0/ö@˝(8~8ù8º8€8˙9ÄBˇ–HÄAÄHÄ!|¶ªˇ‡O‡ |¶ø!ˇ‰êî!ˇò;·8êA;√;  û®~ û®û
  8. û®æ û®fiÄBˇÃHÄA û®fi 0Êˇj1ˇ˛}p,ù@‰;† û©>âÍ û û©^
  9. ©~}äZ0lˇÏ0ɡj3d û8~8Ä8º8€8‡ñ9ñ9 Kˇ˛9;@ñ ûÉ>3Zˇˇ û8~8Ä|º“ ô ∫ñWF<|˘2Æ|€:8‡99 Kˇ˝ı/@˙ˇƒÄ8Ä!|¶ª!ˇ‰O‡ |¶æ°ˇ‘êî!ˇà;·8êA;√;§;Ö û®~ û®û
  10. û®æ û®fiÄBˇÃKˇ˛≠ÄA û© 1(ˇj1Iˇ˛}[p/õ@¸;` û©~K⁄ û û©û
  11. ®~|å0§ˇÏ0≈ˇj3&Í ûIJ á ΩñW®<}'BÆ~˘J~⁄‚ ûÅ^ ä ºñWã<}äZÆ~πb û8~8Ä8∏8’8‡99 Kˇ¸Ÿ û8~8Ä8∂8◊8‡99 Kˇ¸µ û8~8Ä8∏8◊8‡99 Kˇ¸ë û8~8Ä8∂8’8‡99 Kˇ¸mÄHÄ!|¶∫°ˇ‘O‡ |¶æ°ˇ‘êî!ˇp;·8êA;√;§;Ö;f;G:†íøíø ,ù@Ê\/A˙@ û®~ û®û
  12. |Ñ‚ û®æ 8⁄ û®˛99 ÄBˇ–HÄA û≥~
  13. û≥^C‡–/úA˛H û®~ û®û
  14. û®æ û®fi û®˛ û©
  15. }‚9 ÄBˇ–Kˇ˚ŸÄA û©>±? û©^ ±_≥ û©~}ã–±ü û≥~
  16. û≥^ û®~ 0ɡj0§ˇ˛|∂p,ñ@‰:¿ û®fi&≤ û û®˛
  17. ©}'B1IˇÏ1jˇj3 8 8Ä û®æ û®fi
  18. û®˛ û©9 Kˇ˙Ω8 8Ä0πˇˇ0ÿˇˇ8‡ò99 Kˇ˙ù8 8Ä0πˇˇ0ÿñ8‡ò99 Kˇ˙}8 8Ä0πˇˇ8ÿ8‡9ó9 Kˇ˙]8 8Ä0πñ8ÿ8‡9ó9 Kˇ˙=:‡ñ ûÇæ2˜ˇˇ8 8Ä|π∫ ï ∑ñVÏ<|’bÆ|ÿ28‡99 Kˇ˘˝/@˙ˇ»Ä`Ä!|¶∫°ˇ‘O‡ |¶ø°ˇÙêî!ˇ∞;·8êA;√;†Äbˇ¯ÄBˇ»HÄA;£ ù ûIJê˝Åë ù ûÅ>ë=8}C‡‡Ä Ä!|¶ª°ˇÙO‡ |¶øaˇÏêî!ˇ®;·8êA;√;Ñ;•;`Å^ˇ¸Åbˇ¯ÅäˇÙlX;~ÄbˇÙÄùˇÙÑ@˛0Ä¢ˇÙÄ›ˇÙf( õĸÅ|á@@Ê 8{Kˇ˙C‡ Å"ˇÅ]ˇÙ
  19. H@˙8ÅbˇÅùˇÙlX õÄ|ÄõÉ @˛8{®ú®ºKˇ˙ŸC‡‹Ä¢ˇ‡Ä≈ˇ¸Ä˝ˇÙ|á0@Ê0Åˇ‡Å(ˇ¸Å]ˇÙjH8{®ú®º®‹®¸Kˇ¸C‡úÅbˇÃÅãˇÙÄ}ˇÙ`@˙$ÄǡÃħˇÙÄ›ˇÙf(8{Kˇ˛aê|C‡hÄ‚ˇÃÅˇ‰Å=ˇÙâ@@˛TÅBˇÃÅjˇ‰ÅùˇÙlX®|,É@Ê8ÄǡÃ8d,Ä¢ˇÃÄÖˇËĬˇÃ8¶ Ä‚ˇÃÄ«ˇÏ®¸©ÄBˇÃHÄAÄ(Ä!|¶ªaˇÏO‡ |¶øÅˇêî!ˇ∞;·8êA;√;§;Ö9±©?/    A˙4©_1jˇˇ±9Äd±ü®0ɡˇ∞ü®ø/Ö@˛ˇÏC‡ˇ»Ä¬T«>,á@Ê(88ü8øÄBˇÏHÄAÅ/@˙ˇ‡Å"1IëB û ΩñW´< û ºñWå<|~ZÆ|ûbÆÉ |†&T£Ô˛C‡‡Ä Ä!|¶ªÅˇO‡ |¶øaˇÏêî!ˇ†;·8êA;√;§;Ö8ê û ΩñW¶<~2Æ û ΩñWß< û ºñWà<}>BÆ}>;. û ºñWä<~S.Åb1ãëÇìfl≥ø≥ü8ÄǡÄBˇ‹HÄAÄ0Ä!|¶ªaˇÏO‡ |¶ø°ˇÙêî!ˇ∞;·8êA;¿;†ÄbˇÃÄÉd Ñħ ÖĬˇÃÄÊd áÅÅ'|àH@ʆÅBˇÃÅjd ãÅã/ A˙ÑÄbˇÃÄÉd Ñħ ÖÄ≈/ÜA˛dÄ‚ˇÃÅd àÅ( âÅIÅjˇ¸Åǡ¯ÄkˇÙ|É`@Ê8ÄǡÃɃd ûÉfi ûÄæÄ≈ˇ¸Ä‚ˇ¯ÅˇÙh8Éfi ûÉfiC‡åÄBˇÃHÄA;£ ùÅ=/    A˙l ùÅ] äÅj/ãA˛T ùÅù åÄlÄɡ¸Ä¢ˇ¯ÄƒˇÙ|Ü(@Ê0 ùÉ› ûIJÅˇ¸Å"ˇ¯ÅHˇÙjHÉfi ûÉfi8~C‡‡Ä Ä!|¶ª°ˇÙO‡ |¶ø·ˇ¸êî!ˇ¿;·8êA9`ëb9ÄëÇÄBˇÃHÄAêb ÄÄ!|¶ª·ˇ¸O‡ |¶øÅˇêî!ˇ∞;·8êA;ƒÄÅ0æT¶8|&êÅêA;°8T«Ë˛|ȶ9ˇ¸9!4ÖHÖhïIïiBˇÄBˇÃKˇÙ]ÄA;É8bÅǡ‘Äåˇ–8fi8ΩÄBˇ‘HÄA8bÄǡ‘ÄÑˇ–8¢ˇƒ8¿ÄBˇ‘KˇÛπÄA8bÄ¢ˇ‘ÄÖˇ–Ä¢8¿ÄBˇ‘HÄA8bĬˇ‘Äܡ–8¢ˇ¥8¿ÄBˇ‘KˇÛôÄA8bÄ‚ˇ‘Äáˇ–Ä¢8¿ÄBˇ‘KˇÛyÄA8bÅˇ‘Äàˇ–8¢ˇ®8¿    ÄBˇ‘KˇÛYÄAÅ" }I‡jd9Ä,ãb◊@‡3úˇˇ8bÄǡ‘ÄÑˇ–8†d|º*◊@‡0•ˇˇ8¿ÄBˇ‘KˇÛ9ÄA8bĬˇ‘Äܡ–8†.ÄBˇ‘HÄA8bÄ‚ˇ‘Äᡖ9
  20. }<B◊@‡1)ˇˇ9@
  21. |    R◊|†¶@‡0•
  22. 8¿ÄBˇ‘KˇÚ—ÄA8bÅbˇ‘Äãˇ–9Ä
  23. |b◊|†¶@‡0•
  24. 8¿ÄBˇ‘KˇÚuÄA8bÄǡ‘ÄÑˇ–8¢ˇ†8¿ÄBˇ‘KˇÛÄA8bÄ¢ˇ‘ÄÖˇ–ÄBˇ‘HÄAĬˇÃÄf`ÄÇÄBˇ‘HÄAÄ Ä!|¶ªÅˇO‡ |¶øaˇÏêî!ˇò;·8êA;†;Ä;`Äbˇ¸ÄBˇ»Kˇ˘µÄA;£;¿ñ3fiˇˇ ù æñW«<›;./@˙ˇË ù ù9}(9ù9$}    ¶Å Å,ë Ö ï+Å,Bˇë ë+9å9k } $™} %™Äbˇ¯ÄBˇ»KˇÒ≠ÄA;É ú<`8Éêúê\ úìºÄ¢ˇÃ®e>8ü8øÄBˇÃHÄA8bˇî8Ä    8¢ˇx8¿ÄBˇ‰HÄA8úĬˇ‰®¶®fl®ˇÄBˇ‡HÄA;cÄ8Ä!|¶ªaˇÏO‡ |¶ø!ˇ‰êî!ˇê;·8êA; ì?Kˇ˙Y;#/ôA˛\;†%3ΩˇˇÄ‚=9(Û|J◊}@¶@‡}JHjAßÅÇ<`8ÉÛ|¨"◊@‡0•ˇˇ≈ ΔX,û@ ì¬C‡<˛Ä9ˇˇëÅ"9@ñ|    R◊}`¶@‡1kñ;ãÅÇ8`ñ|å◊@‡0Ñˇˇ8†ñ|*◊|¿¶@‡0Δñ;f ô ºñWá<Y:Æ ô ºñWà< ô ªñWi<}YJÆ}YC. ô ªñWk<Y[./@˙ˇ ô ô8Ÿ(8˘8`$|i¶ÄgÄáêfÑgîÜÄáBˇêfêÜ8Á8Δ |g$™|f%™ì?8ÄǡÙÄBˇ‹Kˇˆ9ÄAÄ@Ä!|¶ª!ˇ‰O‡ |¶ø¡ˇ¯êî!ˇ∏;·8êA;¿ìflKˇ¯Ω;√/ûA˛h û û9~ˇ¸9û,9$}    ¶Å Å,ë Ö ï+Å,Bˇë ë+9å9k } $™} %™ìfl8ÄǡÙÄBˇ‹KˇÔÄAÄÄ!|¶ª¡ˇ¯O‡ |¶ø°ˇÙêî!ˇ®;·8êA;†ìøKˇ¯;£,ùAÊ@;¿ñ3fiˇˇ ù æñW√< ûï|ù./@˙ˇ‰ìø8ÄǡÙÄBˇ‹KˇÓmÄAÄ(Ä!|¶ª°ˇÙO‡ |¶øAˇËêî!ˇ†;·8êA;@ì_ Kˇ˜ï;C/öA˛;¿ñ3fiˇˇ ö æñW≈<⁄+.,û@ÊˇË;¿J;æ/ï@¯®3Ω|fiÍ|‹p ö ΩñWß<z:Æ ö ΩñW®< ö ºñWâ<}ZJÆ}ZC. ö ºñWã<z[./û@˝P3fiˇˇ}ûÍ}úp ö æñW√<zÆ ö æñWƒ< ö ºñWÖ<|⁄*Æ|⁄#. ö ºñWá<z;.C‡ˇXì_ 8 ÄǡÙÄBˇ‹KˇÌÌÄAÄ0Ä!|¶ªAˇËO‡ |¶øÅˇ}&êëî!ˇ®;·8êA;ÄKˇˆa;É,úAÊ`Kˇ˜Â;†ñN`Ç;¿Ë@¯88|8û0æˇˇKˇÙë/ÉA˛8|8û0æˇˇKˇıiN`B3fiC‡ˇ»AÛˇº8bˇh8ÄKˇ˜ŸÄ(Å?$Ä!|¶}/Ò ªÅˇO‡ |¶øaˇÏêî!ˇ†;·8êA;`KˇıΩ;c,õAÊtKˇ˜A;¿/ñ@¯X;û3æ/ùñ@¸(8{8ù8ºKˇÛÂ,ÉAÊ;ù3ΩC‡ˇÿ‡A˙8{8û8ºKˇÙ©3fiC‡ˇ®8bˇT8ÄKˇ˜!Ä0Ä!|¶ªaˇÏO‡ |¶øAˇËêî!ˇ†;·8êA;@Kˇı
  25. ;C/öA˛êKˇˆë;¿,ûñ@‰t;†;û‡A˙8}]‚}[p8z8û8ªKˇÛ-!c/ãA˛ 3ªC‡;õC‡ˇ»;~|õ‡@Â8z0õˇˇ8ªKˇÛÂ3{ˇˇC‡ˇ‰3fiC‡ˇå8bˇD8ÄKˇˆUÄ0Ä!|¶ªAˇËO‡ |¶øaˇÏêî!ˇ†;·8êA;`KˇÙA;c/A˙òKˇı≈;¿;Ä/ûñ@¸Wfi<Wå<3åC‡ˇÏ,úAÊ`;‹/ñ@¯Hº/ùA¸48{|ù‚8ΩKˇÚE,ÉAÊ8{8ù|Ω‚KˇÛºËC‡ˇÃ3fiC‡ˇ∏0|ˇˇ||pC‡ˇ†8bˇ48ÄKˇıÅÄ0Ä!|¶ªaˇÏO‡ |¶øAˇËêî!ˇ†;·@êA;√;§ëˇ¸Ë@¯ƒ;û;}|ûÍ|öpÄøˇ¸Äe8ú8∫KˇÒ°/ÉA˛ 3úC‡ˇ‡Äflˇ¸Äf8ö8ªKˇÒ},ÉAÊ 3{ˇˇC‡ˇ‡ÿA˘<ö‡@˛ ;[C‡|öÿ@Ê;\ġˇ¸Äg8ú8ªKˇÚ%3ú3{ˇˇÿ@˘ˇt8~8õÅˇ¸Kˇˇ)8|8ùÅˇ¸KˇˇÄ(Ä!|¶ªAˇËO‡ |¶ø·ˇ¸êî!ˇ∏;·8êA8êKˇÚiêÅ/àA˛$KˇÛÈ8`8Äï9Kˇ˛Ω8bˇ$8ÄKˇÙÄÄ!|¶ª·ˇ¸O‡ |¶øaˇÏêî!ˇ†;·@êA;√;§ëˇ¸;ûW…<3i1[|äË@‰$Åˇ¸Äk8õ0ªKˇ9/A˙3{õË@¸tÅüˇ¸Äl8õ8ºKˇ c,ÉAÊTÄüˇ¸Äd8ú8ªKˇ·;õWe<3e0€Ë@¯$ġˇ¸Äg8õ0ªKˇÔ≈/ÉA˛3{C‡ˇåÄ(Ä!|¶ªaˇÏO‡ |¶ø°ˇÙêî!ˇ∞;·8êA8êKˇÒêÅ,àAÊlKˇÚô;¿K;†ñ/@˘3fiˇˇ8~8ù9Kˇ˛¡C‡ˇ‰/ù@˝,3ΩˇˇÄ8Ä8ΩKˇ8`8ù9Kˇ˛ëC‡ˇ‘8bˇ8ÄKˇÚÅÄ Ä!|¶ª°ˇÙO‡ øÅˇî!ˇ®;·@;√;§ëˇ¸´û©>©]}iR1ã±û≥ùÄ!ªÅˇO‡ øÅˇî!ˇ®;·@;√;§ëˇ¸´ù®}®û|£ 0≈ˇˇ∞›≥ûÄ!ªÅˇO‡ |¶ø°ˇÙêî!ˇ®;·@êA;√∞ü4∞ø8롸®ˇ4,áA‰ò©4}(©_8©RÅˇ¸Äk 8ù0æˇˇKˇÓ/A˙3æˇˇ848ü8Åˇ¸KˇˇQÅüˇ¸Äl 8û8ΩKˇÌÈ/ÉA˛0ġ¸Äc 8û8ΩKˇÓΩ;›848ü8Åˇ¸Kˇˇ
  26. C‡ 8Ä∞ü4C‡ˇdÄ Ä!|¶ª°ˇÙO‡ |¶øaˇÏêî!ˇ†;·@êA;√;§∞ø@∞flD롸,ù@Â8W•¯@‚Ωp8@8üDÅˇ¸Kˇ˛YC‡ˇ‰®fl@f/A˙$ġˇ¸Äg 8û8ªKˇÌ!/àA˛ ;†C‡‹3Ωˇˇ©?@,â@Ê Å_ˇ¸Äj 8û8ªKˇÌ’;€C‡∞©@}ã®DåÄüˇ¸Äd 8ú0æˇˇKˇÏπ/A˙3ûˇˇ8@8üDÅˇ¸Kˇ˝ÒWΩ<Äøˇ¸Äe 8õ8ºKˇÏÖ √/ÜA˛ Äˇˇ¸Äg 8û8ªKˇÌU;€C‡0Åˇ¸Äh 8û8ºKˇÌ9;‹8@8üDÅˇ¸Kˇ˝â;†C‡˛»8~®ü@®øDÅˇ¸Kˇ˝≠Ä(Ä!|¶ªaˇÏO‡ |¶øAˇËêî!ˇ†;·@êA;√;§;Ö;f롸[Å?ˇ¸Äi 8û8∫KˇÎ¡,ÉAÊ0Å_ˇ¸Äj 8û8∫KˇÏï8z8ù8º8€Åˇ¸Kˇ˝˝Ä(Ä!|¶ªAˇËO‡ |¶øÅˇêî!ˇ®;·8êA8ê KˇÏÒê Å / A˙ÏKˇÓq;¿;†;Ä9ıü8`∞/ûñA˛ÿWÑ~,Ñ@ÊD8}®ü®ø9Kˇ¸ë0º|ºp88ü9Kˇ˚˘88ü9Kˇ˚ÈC‡Ä®fl|˛2/ñ@¯8}®ü®ø9Kˇ¸AC‡8}8ú®ø®fl9Kˇ˝88ü9Kˇ˚’Wú<©/àA˛88ü9Kˇ˚µWú<C‡ˇ‡3ú3fi3ΩC‡ˇ(8}8ú®ø®fl9Kˇ¸°,ûAʃ3fiˇˇ3úˇˇ©?/    @˙,3ΩˇˇWä¯@‚úp88ü9Kˇ˚    C‡ˇ‰C‡Ñ©}ãË®¨/ú@˝8}8ú®ø®fl9Kˇ˝Ω88ü9Kˇ˚WÑ<3Ñ®øΩ*8}8ú®ø®fl9Kˇ˝Ö88ü9Kˇ˙…WÜ<3ÜC‡ˇ<8bˇ8ÄKˇÏŸÄ(Ä!|¶ªÅˇO‡ |¶ø·ˇ¸êî!ˇ¿;·8êAÄBˇÃKˇÛ›ÄAêb8bÄ‚ˇ‘ÄᡖÄBˇ‘HÄAÄÄ!|¶ª·ˇ¸O‡ âXˇ¸ˇˇˇˇDataDescˇ¯ˇÙFrameDescˇÙˇ¯ReorderMsgˇˇ¯SwapMsgäLNPRW_bcjtw{|îñòöüß™´≥µ∂ªΩæ¬À‘›˝ˇ $'+/13;>?HJLNsyzñóúù¢µΩæÃÕflÔ¸<=?@HYZ]^`aefÉÖàèïóùü®™Ø±∏ºæ¬ƒÀÕ“‘ÿöõ†°∏Ω$%NOz{öõß®´¨ÆØ≥¥ºΩ¿¡√ƒ»…㯃¿8ReplConstÁ{a·{colÂ{hÊ{mode‰{w‚{x„{y¯ã08UpdateReorder
  27. Ê{data
  28. ·{fÂ{i‚{left„{x0‰{y0¯Î¿8UpdateSwap
  29. ·{f‚{i„{j‰{leftÂ{x0Á{xiÈ{xjÊ{y0Ë{yiÍ{yj¯âÿ8Modify
  30. Í{data„{dy
  31. ·{fÂ{hË{i‚{idÈ{leftÊ{x0‰{yÁ{y0¯®8CopyOf
  32. ‚{c
  33. ·{f¯í 8Handler
  34. ·{f
  35. ‰{self¯Œ8Less
  36. ·{data‚{i„{j    keysxy¯˘(8Swap
  37. ·{data‚{i„{j‰{x¯fi8ParameterData
  38. ·{l
  39. ‚{v¯Ò8Start¯ä8Stop„{t¯€08Open
  40. ‚{data
  41. „{f·{i
  42. ‰{vxy¯¬88Randomize
  43. Ê{data·{i„{k‰{l‚{nÂ{x¯Ï8Recall
  44. ·{data¯å     8ReverseOrder
  45. ‚{data·{i¯ÿ    (8QuickWorstOrder
  46. Â{data·{i‚{j„{m‰{x¯É
  47.  8Bubble
  48. „{data·{i‚{nå{swapped¯Ø
  49. (8MinSearch
  50. ‰{data·{i‚{j„{min¯‚
  51. (8Insert
  52. Â{data„{hi·{i‚{lo‰{m¯ó (8Shell
  53. ‰{data„{h·{i‚{j¯◊  ¿Sort‚{hi„{i‰{j·{loÂ{m¯Ò 8Quick
  54. data¯´  ¿Sift„{i‰{j·{l‚{r¯◊ 8Heap
  55. data·{l‚{r¯Á ¿Up·{b„{b1‚{c¯˜ ¿Down·{b‚{c„{c1¯Æ
  56. ¿Sift4b8c·{r‚{r1¯í ¿Trinkle¿bƒc‚{p·{r„{r1‰{r2¯µ ¿SemiTrinkle„{b‰{c‚{p·{rÂ{r1¯¡ 8Smoothbc
  57. data„{p·{q‚{r¯÷8$$comparisonsseedswaps time